﻿Imports System.Data

Partial Public Class Pcliente
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        txtlegajo.Focus()
        llenarcombolocalidad()
    End Sub

    Protected Sub btnguardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnguardar.Click
        If Not IsNumeric(txtlegajo.Text) Then
            MsgBox("Debe ingresar un legajo de cliente", MsgBoxStyle.DefaultButton1)
            Exit Sub
            txtdni.Focus()
        End If
        If Not IsNumeric(txtdni.Text) Then
            MsgBox("Debe ingresar un número de dni", MsgBoxStyle.DefaultButton1)
            Exit Sub
            txtdni.Focus()
        End If
        If (Len(txtnombre.Text) = 0) Then
            MsgBox("EL Nombre del cliente es obligatorio", MsgBoxStyle.Exclamation)
            Exit Sub
            txtnombre.Focus()
        End If
        If (Len(txtapellido.Text) = 0) Then
            MsgBox("EL apellido del cliente es obligatorio", MsgBoxStyle.Exclamation)
            Exit Sub
            txtapellido.Focus()
        End If

        If (Len(txtfecnac.Text) = 0) Then
            MsgBox("Debe ingresar la fecha de nacimiento", MsgBoxStyle.Exclamation)
            Exit Sub
            txtfecnac.Focus()
        End If
        If (Len(txtdomiclio.Text) = 0) Then
            MsgBox("Debe ingresar el domicilio del cliente", MsgBoxStyle.Exclamation)
            Exit Sub
            txtdomiclio.Focus()
        End If
        If Not IsNumeric(txttel.Text) Then
            MsgBox("Debe ingresar el telefono del cliente", MsgBoxStyle.DefaultButton1)
            Exit Sub
            txttel.Focus()
        End If
        If Not IsNumeric(txtrecibo.Text) Then
            MsgBox("Debe ingresar el sueldo del cliente", MsgBoxStyle.DefaultButton1)
            Exit Sub
            txtrecibo.Focus()
        End If
        If Not IsNumeric(txtfamilia.Text) Then
            MsgBox("Debe ingresar el numero de personas del grupo familiar", MsgBoxStyle.DefaultButton1)
            Exit Sub
            txtfamilia.Focus()
        End If

        Dim oclientesNegocios As New Negocio.Ncliente
        Dim oCliente As New Entidades.Ecliente
        oCliente.legcli = UCase(txtlegajo.Text)
        oCliente.dnipers = UCase(txtdni.Text)
        oCliente.nompers = UCase(txtnombre.Text)
        oCliente.apepers = UCase(txtapellido.Text)
        oCliente.fecha_nacpers = UCase(txtfecnac.Text)
        oCliente.dompers = UCase(txtdomiclio.Text)
        oCliente.telpers = UCase(txttel.Text)
        oCliente.sueldocli = UCase(txtrecibo.Text)
        oCliente.familiacli = UCase(txtfamilia.Text)
        oCliente.localpers = Me.ddlocalidad.SelectedValue


        Try
            If oclientesNegocios.cargarCliente(oCliente) Then
                MsgBox("Carga Exitosa de cliente.", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try
        'dglocalidad.DataSource = objlocalidad.ver

        txtlegajo.Text = ""
        txtdni.Text = ""
        txtnombre.Text = ""
        txtapellido.Text = ""
        txtfecnac.Text = ""
        txtdomiclio.Text = ""
        txttel.Text = ""
        txtrecibo.Text = ""
        txtfamilia.Text = ""
        ddlocalidad.ClearSelection()

    End Sub

    Protected Sub llenarcombolocalidad()
        Dim oInternoNegocios As New Negocio.Ncliente

        ddlocalidad.DataTextField = "nombre"
        ddlocalidad.DataValueField = "cod_localidad"
        ddlocalidad.DataSource = oInternoNegocios.comboloc
        ddlocalidad.DataBind()


    End Sub
End Class